[VB解题]统计一个二进制数中0的个数和1的个数

Private Sub command1_click()
Dim i As Integer, r As String, n0 As Integer, n1 As Integer
r = Text1.Text
T r, n1, n0
If r <> "" Then
Text2.Text = CStr(n1) & "个1。"
Text3.Text = CStr(n0) & "个0。"
End If
End Sub
Private Sub T(x As String, n1 As Integer, n0 As Integer)
Dim i As Integer
For i = 1 To Len(x)
Select Case Mid(x, i, 1)
Case "0"
n0 = n0 + 1
Case "1"
n1 = n1 + 1
Case Else
MsgBox "输入的不是二进制数，请重新输入！"
x = ""
Exit Sub
End Select
Next i

End Sub